home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / btrieve / xql201.exe / PATCH201.BAT < prev    next >
DOS Batch File  |  1991-09-23  |  4KB  |  153 lines
  1. echo off
  2. if %2! == ! goto begin
  3. if %2 == /e goto thecom
  4. goto begin
  5. ::
  6. :thecom
  7. ::
  8. COMMAND /C /E:1024 PATCH201 %1
  9. ::
  10. :BEGIN
  11. ::
  12. CLS
  13. echo *** MAKE SURE THAT YOU USE THE ORIGINAL (UNPATCHED) RELEASED VERSION
  14. echo     OF THE PRODUCT YOU ARE PATCHING.   PATCHING AN ALREADY PATCHED COPY
  15. echo     MAY CAUSE UNPREDICTABLE ERRORS.
  16. echo  
  17. echo  
  18. ::
  19. IF %1! == !     GOTO PARAM
  20. IF  %1 == XQLP  GOTO START
  21. IF  %1 == XQLM  GOTO START
  22. IF  %1 == XQLPO GOTO START
  23. IF  %1 == XQLU  GOTO START
  24. IF  %1 == XQLI  GOTO START
  25. IF  %1 == XQLPOS2 GOTO OS2
  26. IF  %1 == xqlp  GOTO START
  27. IF  %1 == xqlm  GOTO START
  28. IF  %1 == xqlpo GOTO START
  29. IF  %1 == xqlu  GOTO START
  30. IF  %1 == xqli  GOTO START
  31. IF  %1 == xqlpos2 GOTO OS2
  32. GOTO PARAM
  33. ::
  34. :START
  35. ::
  36. SET X201ORG=%1.ORG
  37. SET X201FIL=%1.EXE
  38. SET X201PAT=%1PAT.201
  39. SET X201TYP=DOS
  40. IF %1 == XQLU GOTO UTIL
  41. IF %1 == xqlu GOTO UTIL
  42. GOTO PATCH
  43. :UTIL
  44. SET X201FIL=XQLUTIL.EXE
  45. GOTO PATCH
  46. :OS2
  47. SET X201ORG=XQLP.OS2
  48. SET X201FIL=XQLP.DLL
  49. SET X201PAT=%1.201
  50. SET X201TYP=OS2
  51. GOTO PATCH
  52. ::
  53. :PATCH
  54. IF NOT EXIST PI.EXE GOTO NOPI
  55. IF NOT EXIST %X201PAT% GOTO XERROR
  56. IF NOT EXIST %X201FIL% GOTO EERROR
  57. IF NOT EXIST %X201ORG% REN %X201FIL% %X201ORG%
  58. :PATORG
  59. echo  
  60. echo %X201FIL% FOR %X201TYP% VERSION 201 ** PATCHING .............
  61. echo  
  62. COPY %X201ORG% %X201FIL%
  63. PI %X201FIL% %X201PAT% >NUL
  64. IF ERRORLEVEL == 9 GOTO VERR
  65. IF ERRORLEVEL == 0 GOTO SUCCESS
  66. GOTO UNKNOWN
  67. ::
  68. :NOPI
  69. echo  
  70. echo CANNOT FIND PI.EXE
  71. echo  
  72. echo The Novell Patch Install Utility (PI.EXE) is required to install
  73. echo the patches for this product.  Please copy PI.EXE to the directory
  74. echo you are working in............................................
  75. GOTO END
  76. ::
  77. :XERROR
  78. echo  
  79. echo CANNOT FIND %X201PAT%
  80. GOTO END
  81. ::
  82. :EERROR
  83. IF EXIST %X201ORG% GOTO PATORG
  84. echo  
  85. echo CANNOT FIND %X201FIL%
  86. GOTO END
  87. ::
  88. :VERR
  89. CLS
  90. ECHO ***** BYTE VERIFICATION FAILED *****
  91. ECHO  
  92. ECHO YOU ARE NOT PATCHING THE ORIGINAL %X201FIL%
  93. ECHO  
  94. ECHO PLEASE COPY THE ORIGINAL %X201FIL% TO THE CURRENT
  95. ECHO DIRECTORY AND TRY AGAIN.
  96. COPY %X201ORG% %1.BAT
  97. DEL %X201ORG%
  98. GOTO END
  99. ::
  100. :SUCCESS
  101. ECHO  
  102. ECHO PATCHES FOR %X201FIL% SUCCESSFULLY INSTALLED.......
  103. ECHO  
  104. GOTO FIXED
  105. ::
  106. :UNKNOWN
  107. CLS
  108. ECHO ***** UNKNOWN ERROR *****
  109. ECHO  
  110. ECHO AN UNKNOWN ERROR HAS OCCURRED WHILE PATCHING %X201FIL%
  111. ECHO  
  112. ECHO PLEASE CALL YOUR TECHNICAL SUPPORT REPRESENTATIVE FOR HELP.....
  113. ECHO
  114. GOTO END
  115. ::
  116. :PARAM
  117. echo  
  118. echo THE FORMAT IS:
  119. echo  
  120. echo PATCH201 [filename]
  121. echo  
  122. echo WHERE [filename] IS:       XQLP
  123. echo                            XQLPO
  124. echo                            XQLM
  125. echo                            XQLU      { XQLUTIL.EXE }
  126. echo                            XQLI
  127. echo                            XQLPOS2   { XQLP FOR OS2 }
  128. echo  
  129. GOTO END
  130. ::
  131. :FIXED
  132. echo  
  133. echo %X201FIL% FOR %X201TYP% VERSION 201 ** PATCH COMPLETE **
  134. echo  
  135. echo  
  136. echo ***** NOTICE: The %X201ORG% file in your current directory is the
  137. echo               original.  This batch file renames %X201FIL% to %X201ORG%
  138. echo               if it does not find %X201ORG%.  This will allow you to
  139. echo               keep the original on hand without patches applied.
  140. echo               The next time the patches are applied, it looks for
  141. echo               the %X201ORG% file first.  Thus, patches will always be
  142. echo               applied to the unpatched version.
  143. echo  
  144. echo               IT IS YOUR RESPONSIBILITY TO PLACE THE UNPATCHED VERSION
  145. echo               IN THIS DIRECTORY THE FIRST TIME YOU USE THIS BATCH FILE.
  146. echo  
  147. ::
  148. :END
  149. SET X201ORG=
  150. SET X201FIL=
  151. SET X201PAT=
  152. SET X201TYP=
  153.